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BEGIN ^ 

. r"^ 

DEFINE A SOURCE FILE HAVING 
A PLURALITY OF TAGS. EACH TAG 
ASSOCIATED WITH A MEMBER 
OF A LIBRARY OF EXECUTABLE CODE 
FOR PERFORMING A PORTION OF 
AN AUTOMATIC TEST PROCEDURE 



GENERATE A SCRIPTED TEST PLAN 
IN A CONVERSATIONAL LANGUAGE 
FROM THE SOURCE FILE 



204 



GENERATE AN AUTOMATED 
TEST CODE FOR THE AUTOMATED 
TEST PROCEDURE FROM THE 
SOURCE FILE 



206 



END ^ 
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:H3.SMQA0 1 -9 1 1MS/CQS, non-response mode trans 
:hppartc tc= 'SMQA0 1 -9' 

402 ^:h4.0bjectives 

404 -^ipjhe purpose of the test is entered here. 



406- 



^:h4.Scenario 



408 -V..QI compact. 

410 -^;ii jhe test scenario is entered here 

"12-^:601. 

4''4 ~^:h4.Procedure 

4'' 6 ~^:ol compact. 

418 ^:li.lnsert IT2 procedures here 

420-^:eol. 

422 ~^:h4.Verification 

424 ->s;o| compact. 

426 ~\:li,Testcase is seif-verifying. 

428-^:eol. 

430 "~^:h4.System Configuration 
432 -^:oi compact. 

434 ""^ill.This test case uses configuration . 

436->s:eol. 

438 -^:h4.Parts used by Test Case 
440 ~^:insert parts used by Test Case 
442 "^ihpauthor aname= Insert author name 
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^500 

:H3.SMQA0 1 -9 1 1MS/CQS, non-response mode trans 
:hppartc tc= 'SMQA0 1 -9' 

:h4.0bjectives 

pp.The purpose of the test is to validate that transactions can be processed 
502 ^ on the Shared Message Queue. This test case will queue up non-response 
Lmode transactions on the queue and process them. 

:h4.Scenario 

:ol compact. 

:li.Start up a 1-way SYSPLEX with 1 Coupling Facility 
:li.lnitialize the RECONS and Load the DA Data Base share level 3 
:li.Starl IRLM 2.1 
:il.Cold start 1 1MS/CQS. 
rli.Submit 1000 non-response mode transactions 
:li.Start application program 

.ii.Submit another 500 non-response mode transactions 

.:li.Shutdown IMS after work is processed 
:eol. 

:h4.Procedure 
:ol compact. 

:li. Insert IT2 procedures here 
:eol. 

:h4.Verification 
:ol compact. 

:liTestcase is self-verifying. 
:eol. 

:h4.System Configuration 
:ol compact. 

:li.This test case uses configuration 30. 
:eoL 

:h4.Parts used by Test Case 
:hppartp 

:hpauthor aname= Tom Pavela' 
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:H3.SMQA0 1 -9 1 1MS/CQS, non-response mode trans 
:hppartc tc= 'SMQA0 1 -9' 



:h4.0bjectives 

:p.The purpose of this test is to validate that transactions can be processed 
on the Shared Message Queue. This test case will queue up non-response 
mode transactions on the queue and process them. 
:h4.Scenario 
:ol compact. 

.-li.Start up a 1-way SYSPLEX with 1 Coupling Facility 

:li.lnitialize the RECONS and Load the DJK Data Base share level 3 

:li.Start IRLM 2.1 

:il.Cold start 1 1MS/CQS. 

.-li.Submit 1000 non-response mode transactions 

:li.Start application program 

:li.Submit another 500 non-response mode transactions 

:li.Shutdown IMS after work is processed 
:eol, 

:h4.Procedure 
:ol compact. 

602A ^.HPENTRY CONFIG=30^ 602B 
604A -N iHPLOAD DB='DJK' SHRL=3 604B 
606A ^:HPSRLM2 ON=ALL - 606B 
608A^.||^SSTART ON=ALL DB='DJK' RE=NRE -^6088 

CFNAMES1 ='CFNAMES,CFIRLM=LT01 ,CFVSAM=,CFOSAM=OSAMSESXI' 
610A -^iTMSCNTI ON=ALL NTRANS=1000 - 610B 
612A -n:TMSCNTI 0N=ALL NTRANS=500-^ 61 2B 
SI^A -n:|msSTOP 0N=ALL'' 614B 
616A-N:HPEXIT--616B 
:eol. 

:h4.Verification 
:ol compact. 

:li.Testcase is self-verifying. 
:eol. 

:h4.System Configuration 
:ul compact. 

:li.This test case uses configuraton 30. 
:eul. 

:h4.Parts used by Test Case 

:hpauthor aname= Tom Pavela' I I O . O 
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ENTER ^ 





r 702 


TRANSLATE THE TAGS 






EXECUTE SCRIPT TO GENERATE 
TEST PLAN IN CONVERSATIONAL 
LANGUAGE FOR EACH 
TRANSLATED TAG 







( ^RETURN^ 



FIG. 7 



Thomas J. Pavela 



8/40 



SMQAO 1 -9 1 1MS/CQS, NON-RESPONSE MODE TRANS 
Objectives 

The purpose of this test is to validate that transactions can be processed on the Shared Message Queue. 
This test case will queue up non-response mode transactions on the queue and process them. 
Scenario 

1 . Start up a 1-way SYSPLEX with 1 Coupling Facility 

2. Initialize the RECONS and Load the DJK Data Base share level 3 

3. Start IRLM 2.1 

4. Cold start 1 1MS/CQS. 

5. Submit 1000 non-response mode transactions 

6. Start application program 

7. Submit another 500 non-response mode transactions 

8. Shutdown IMS after woric is processed 
Procedure 

1 . Call Hpcs_entry using configuration 30 and ARM= NO and ARCDEFLT= YES and RECVTAM= YES 

2. Call Hpcsjoadjatabases which will: 

a. Define the shared RECON data sets 

b. Run the load database job(s) to load database(s) DJK and register the data bases as share level -3 

3. Call Hpcs_Start_IRLMs_21 which will: 

a. Start IRLM 2.1 on all CECS with a lock structure of LT01 

4. Call Start_iMS_on_alLsystems which will: 

a. Run HPC$SPEC MODEL to update the VSPEC member on all CECs with 
(CFNAMES,CFIRLM=LT01,CFVSAM=,CFOSAM=OSAMSESXI) 

b. Run IMS%CSA% MVSPROC to bring up IMS TM/DB region on all CECs with COS using VCATSHR. 

c. After DFS81 OA message is displayed, issue 7NRE CHKPT 0 FORMAT ALL." Wait for cold start to 
complete. 

1) Issue IMS command "/STOP DB DBHDOJ01" 

2) Issue IMS command "/STOP DB DBHDOK01" 

3) Issue IMS command "/START DB DBHDOJ01 ACCESS=UP" 

4) Issue IMS command "/START DB DBHDOK01 ACCESS=UP" 
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5. Call Start_Transaction_Scenario_1 which will: 

a. Submit 1000 non-response mode transactions (HPCSTCL1) on all CECs 

b. Issue the IMS / START PROGRAM HPC$M$00 command on all CECs 

c. Wait for ail Scenario 1 transactions to be processed, then verify the transaction counter is correct. 

6. Call Start_Transaction_Scenario_ 1 which will: 

a. Submit 500 non-response mode transactions (HPCSTCL1 ) on all CECs 

b. Issue the IMS / START PROGRAM HPC$M$00 command on all CECs 

c. Wait for ail Scenario 1 transactions to be processed, then verify the transaction counter is con-ect. 

7. Call Stop_all_IMSs which will: 

a. Issue a 7CHE FREEZE" to bring down the IMS control region on all CECs 

b. When IMS control region on all CECs completes, verify all condition codes to be zero. 

c. In Shared Queues configurations when COS region on all CECs completes, verify all condition codes 
to be zero. 

8. Call Hpcs_Exit routine 
Verification 

1 . Testcase is self-verifying. 
System Configuration 

0 This test case uses configuration 30. 
Parts used by Test Case 

CFCPLOAD PROCEDURE 

RCN%CSA% PROCEDURE 

HPC$L05 MODEL 

LOADDJK PROCEDURE 

IRLME2N PROCEDURE 

HPCSSPEC MODEL 

iMS%CSA% PROCEDURE 

SMQ$C19XMVSPR0C 

SMQ$BMPJCL 

HPC$TPNS MODEL 

HPC$MPP MODEL 

HPCSJOB EXEC 
Author: Tom Pavela 
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/*SMQAO 1-9 1 IMS/CQS, non-response mode trans 




r 
r 



I* Objectives 
/* 

/* The purpose of this test is to validate that transactions can be 

/* processed on the Shared Message Queue. This test case will queue 

/* up non-response mode transactions on the queue and process them. 

/* 

/* Scenario 
/* 

/* Start up a 1-way SYSPLEX with 1 Coupling Facility 
/* 

/* Initialize the RECONS and Load the DJK Data Base share level 

/* 3 

/* 

/* Start IRLM 2.1 
/* 

/* Cold start 1 IMS/CQS. 



I* 
I* 

r 
r 
r 
I* 
I* 
/* 



Submit 1000 non-response mode transactions 



Start application program 



Submit another 500 non-response mode transactions 



Shutdown IMS after work is processed 
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/* This TC requires that an EC machine be ipled and executing in a 
I* Parallel SYSPLEX Environment (with a Coupling Facility) 



rSECURITY 



/* TESTCASE NAME 



/* SOURCE FILE 



IBM INTERNAL USE ONLY 



"SMQA01-9" 



"SMQA01-9 SCRIPT A1" 



/* LINE ITEM 
/*= 



1 IMS/CQS, non-response mode trans 



SESSION=SESSION 

GLOBAL SetVars MoreHold DoReply DoWait TimeOut SwitchEC ATIRUN 
GLOBAL MVSPROC ATIVER TransVer MVSCmd CPCmd GoCP LeaveCP GetPRTAII 
GLOBAL ResetPorts DialPorts LogLine 
GLOBAL DoWaitSwap ATlSwap MVSCmdSwap 



/* Hpcs subroutine library 



***************************** 



GLOBAL CONFIGURATION /*: determines #ECs & #CFs & struct location 

GLOBAL DATABASES /*: determines databases to load and access 

GLOBAL CFNAMES1 /*: CFNAMES card #1 used by HPC$VSPEC 

GLOBAL CFNAMES2 /*: CFNAMES card #2 used by HPC$VSPEC 

GLOBAL OPTIONS /*: IRLM 2.1 options (start_ajrlm only) 

GLOBAL DBDLIST /*: dbdiist at hpcs_entry 

GLOBAL ACBLIB /*: acblib at hpcs_entry, psb will be gened to 

GLOBAL HPCLIST /*: psblist at hpcs_entry 

GLOBAL HPCSTRCE /*: TRACE value while in HPC$SUB 

/* Scenario variables ' 
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GLOBAL HPCSLOG 
GLOBAL HPCSTRAN 



GLOBAL HPCSMPPS 



GLOBAL HPCSVER 



GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 



HYPER 

SHARER 

MODEL 

NUMPARTS 

RESLIB 

PARM1 

PARM2 

RESTART_VTAM 

VSPEG 

PROCNAME 

CEC1_RESLIB 

CEC2_RESLIB 

CEC3_RESL!B 

Scenario2Jog 

ScenarioSJog 

Scenario4_log 

ScenarioSJog 

Scenario6Jog 

Scenarjo7_log 

ScenarioSJog 

Scenario9Jog 

ScenarioAJog 

ScenarioBJog 

ScenarioCJog 

ScenarioDJog 

ScenarioE log 



/*: LOG causes Scenario logging to OLDS 

/*: #trans to use in Scenario 1-350 

/* Scenarios 4, 5 <176 else <351 

/* The number of Mpps to be used by 

/* database type, 1, 2 or 3 (def=3) 

/* ='Yes' verify environment, ='No', goto 

/* check all messages processed loop 

/* Yes-use VSAM Hyper space 

/* Yes-start 2nd IMS 

/* Mvscmd model proc 

/* Number of Partitions 

/* IMS reslib 

/* IMS parm1 

/* IMS parm2 

/* restart_vtam=yes/no for recycled vtam in 

/* IMS VSPEC 

/* IMS PROCNAME 

/* CEC1 RESLIB 

/* CEC2 RESLIB 

r CEC3 RESLIB 

/* TMSCNTX Scenario2 _Log 

/* TMSCNTX Scenarios _Log 

/* TMSCNTX Scenario4 _Log 

/* TMSCNTX Scenarios _Log 

/* TMSCNTX Scenarios _Log 

/* TMSCNTX Scenario? _Log 

/* TMSCNTX Scenarios _Log 

/* TMSCNTX Scenarios _Log 

/* TMSCNTX ScenarioA _Log 

/* TMSCNTX ScenarioB _Log 

/* TMSCNTX ScenarioC _Log 

/* TMSCNTX ScenarioD _Log 

/* TMSCNTX ScenarioE _Log 
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GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 

r- 

GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 



ScenarioFJog /* TMSCNTX ScenarroF_Log 

ScenarioGJog /* TMSCNTX ScenarioG_Log 

ScenarioH_log /* TMSCNTX ScenarioH_Log 

Scenario IJog /* TMSCNTX Scenario l_Log 

ScenarioJJog /* TMSCNTX ScenarioJ_Log 

ScenarioKJog /* TMSCNTX ScenarioK_Log 

ScenarioLJog /* TMSCNTX ScenarioL_Log 

CQSWTOR1 /* CQSWTOR1 

ARCDEFLT /* Archive naember default 

NumofTerm_to_Use /* Num of Terminal to use for Scenario 1-10 

ARM /* ARM policy 

ShareDB /* Share DB YES-Global No-Local 

IMSLOCAL /* Local IMS? 

RSRMBR /* RSRMBR RSR Member 

DELSLDS /* DELSLDS Delete SLDS 

RLVL r RLVL Readiness level 

HPCSFRCE /* routine in HPC$CMD to cleanup structures 



■Called Commands- 
Switch EC 
Hpcs_entry 
Hpcs_load_databases 
Hpcs_Start_l RLMs_2 1 
Start_IMS_on_all_systems 
Start_Tran_Scenario_1 
Stop_allJMSs 
Hpcs_exit 
Hpcs_clear 
Hpcs_clear_all 
Hpcsjogit 
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:begin test case: 
-»> EC1 «<— • 



*/ 
V 



Call SwitchEC "EC1" 

CONFIGURATION=30 

RESTART_VTAM="YES" 

ARCDEFLT="YES" 

ARM="NO" 

Call Hpcs_entry " " 

/* load the database(s) using sharelevel 3 */ 
DATABASES=" DJK " 

ShareDB="YES" g^Q 
Call HpcsJoad_databases "3 " 
Call Hpcs_Start_IRLMs_21 " " ^ 



/* Cold start IMS TM_DB region on ALL system(s) V 

/* CQS will be started and the default model is SMQ$C19X. 7 

/* The following IMS parms will be used if they are not set by the */ 

/* user in IMSPARMS: */ 

/* IRLM=Y, VSPEC=HP, IMSID=IMSx */ 

/* SHAREDQ=%%x, DC=COx V 

/* note: x is 1 ,2, or 3 depending on which CEC */ 
/* DLINM=HPC%CSA% (if DBDLIST or PSBLIST is specified in HPENTRY) 7 

CFNAMES1= 'CFNAMES, CFIRLM=LT01, CFVSAM=, CFOSAM=OSAMSESXr 

CFNAMES2="N0" 

DATABASES=" DJK " 

SHARER="NO" 

HYPER="NO" 

IMSLOCAL="N" 

RESLIB="C" 

PROCNAME="DEFAULT" 

PARM1=" " 

PARM2=" " 

VSPEC="DEFAULT" 

MODEL="DEFAULT" 

Call Start_IMS_on_all_systems 

Call Start_Tran_Scenario_1 "LEAVE=NO NTRANS=1000 ON=ALL STARTAPL=ALL" 
Call Start_Tran_Scenario_1 "LEAVE=NO NTRANS=500 ON=ALL STARTAPL=ALL" 

Call Stop_allJMSs " " 
Call Hpcs_exit " " 

/*====:=s:====:======:=:=:==s===:end teSt caSe=========================== */ 

EXITO 

INCLUDE "HPC$SUB" 

/*====:===:=:=====:===:===HPTC Translation summary==================== 7 

/* Number of lines written = ...176 7 

/* Number of +++ errors = 0 7 

/*====================End Translation summary==================== 7 



r 
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ENTER ^ 



PRESENT A VISUAL REPRESENTATION OF A LIBRARY 

OF EXECUTABLE CODE OBJECTS TO A USER, THE 
LIBRARY COMPRISING A PLURALITY OF TEST OBJECT 
MEMBERS DEFINING A SET OF INSTRUCTIONS FOR 
PERFORMING A PORTION OF AN AUTOMATED TEST PROCEDURE 



ACCEPT A SELECTION OF A FIRST TEST 
OBJECT IN THE VISUAL REPRESENTATION 



PRESENT FIRST TEST OBJECT OPTIONS 
TO THE USER, THE FIRST TEST OBJECT 
OPTIONS DEFINING AT LEAST ONE TEST 
PARAMETER FOR PERFORMING A PORTION 
OF THE AUTOMATIC TEST PROCEDURE 



ACCEPT A SELE 
TEST OBJEC 


CTION OF FIRST 
;T OPTIONS 






TRANSLATE THE FIRST TEST OBJECT 

OPTIONS INTO AT LEAST ONE TAG 
AND AT LEAST ONE TAG PARAMETER 






STORING THE T^ 
PARAMETER IN T 


\G AND THE TAG 
HE SOURCE FILE 



( END } 
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.* IMS Test Object Change History 
.* mm/dd/yy - xxx 



.* HPSRLM2 Macro Start IRLM 2.1 on indicated CEC 
* *********************************************************** 



.gs rules (vat) 

.aa HPSRLM2 HPSRLM2 

.dm HPSRLM2 on 

.gs attval ON as *onn 

.gs attval OPTIONS as *opt 



.if &e'&*onn = 0 

.th .go error 

.if &u'&*onn = ALL 

.th .go all 

.if &l'&*onn = 4 

.th .go scec 

.el .go mcec 



...all 

:li.Call Hpcs_Start_IRLMs_21 which will: 
:ol compact. 

:li.Start IRLM 2.1 on all CECS with a lock structure of LT01 
.go conti 

...scec 

.if&e'&*opt=1 
.th .go popt 

:li.CaII Hpcs_Start_anJRLM_21 which will: 
:ol compact. 

:li.Start IRLM 2.1 on &u'&*onn with a lock structure of LT01 
.go conti 

* 

...popt 

ili.Call Hpcs_Start_an_IRLM_21 which will: 
:ol compact. 

ili.Start IRLM 2.1 on &u'&*onn specifying the following options; 

&u'&*opt 

.go conti 
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...mcec 

:li.Call Hpcs_Start_anJRLM_21 which will: 
:ol compact. 

:li.Start IRLM 2.1 on &u'&*onn with a lock structure of LT01 

.* Process Parts Used 

...cont1 
:eol. 

.se fn = 'IRLME2N' 

.se ft = PROCEDURE 

.hpchkpt 

.se *fn1 = 'IRLM 

.se*fn2 = 2.1 

.sefn = &*fn1.&*fn2 

.hpadfun 

.go done 



...error 

:li.+++ERROR in HPSRLM2 INVALID ON Parameter*' 



...done 
.dm off 

.* end of HPSRLM2 Macro 
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HPSRLM2: /•ON=(CECx,ALL) L0CKTAB=1 GROUP=g IRLMID=i 
Call Parse_varjabtes 
upper on 

if result>1 then return result 

If Totall-=on1+options1 then return 6 

If on 1=0 then return 7 

If options1-=0 & on='ALL' then return 18 

If options1-=0 & onn>1 then return 18 

data=elghty_blanks 

call PutJlne_on_Stack 

Call PutJine_on_stack 

If on='ALL' then do 

Data ='Call Hpcs_StartJRLMs_2r 

Call PutJine_on_stack 

end 

If onn>1 then do 
do j=1 to onn 

work_ec = substr(word(on,j),2,3) 
Call Check_current_ec 
Data ='Call Hpcs_Start_an_IRLM_2r 
Call PutJine_on_stack 
end 
end 

If onn=1 & on-=*ALL' then do 
work__eG = substr(on,2,3) 
Call Check_current_ec 
If optlons1>0 then do 

Work_String=options 

Call Remove_High_Values 

options = Work_String 

Data = 'OPTIONS='||""||options||"" 

Call PutJine_on_stack 
end 

Data ="Call Hpcs_Start_anJRLM_21 ' 
Call PutJine_on_stack 
end 

Call Add_Library 'HPC$SUB' 
return 
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I* Routine Name: Hpcs_startjrlms_21 
/* Called by: 

/* Parameters passed: ^ */ 

/* Routines called: */ 
/* Routine Function: */ 
^*******************************************************************&END&** 

Hpcs_startjrlms_21 : 

Call Save_callers_environment 

Call Hpcsjogit 'Hpcs_startjrlms_21 started' 

If Options—" & Options—'OPTIONS' then do 

Call Hpcsjogit 'Options may not be specified when' 

Call Hpcsjogit 'starting "all" Irlms 2.1' 

goto HpcsJest_case_aborted 
end 

lrlm_process='Start' 

Call Process_allJ>"lms 

Call Restore_callers_environment 

Return 0 



/* Routine Name: Process_all_lrlms */ 
/* Called by: */ 
/* Parameters passed: */ 
/* Routines called: */ 
/* Routine Function: */ 
/**' 

Process_all_lrlms: 
ec=1 

do until forever=true 

CMS 'GLOBALV SELECT MULTIEC STACK EC'ec 
Pull NewEC 

if IndexC 'Sessions' ',' 'NewEC ')=0 or, 
ec>Maxcec or, 
NewEC=" then do 
Goto Process_allJrlms_exit 
end 

CMS 'GLOBALV SELECT DOAUTO SET SESSION' NewEC 
CMS 'GLOBALV SELECT DOAUTO SET ECID' NewEC 
Session=NewEC 
Call Process_anJrlm 
ec=ec+1 
end 
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goto Process_ali_lrlms_exit 
Process_allJrlms_exit: 
return 

y************************************************************^^ 

/* Routine Name: Process_an_lrlm */ 
/* Called by: */ 
/* Parameters passed: */ 
/* Routines called: */ 
/* Routine Function: */ 

Process_anJrlm: 

If lrlm_process='Start' then do 
Call Hpcs_clear_all 
Call GetJrlm_21_Options 
Send 'S IRLME2N,'||lrlm_21_Optjons 
Wait #1 

Call Hpcsjogit 'Starting IRLME2N on "UNewEC 
Call Hpcsjogit lrlm_21_Options 
hpcs_onerror=onerror 
onerror=False 

CALL DOWAIT '5 1 IRLM INITIALIZATION COMPLETE' 
/* Wait #9:00 Scrhas('RLM INITIALIZATION COMPLETE') 
Wait_rc=rc 
onerror=hpcsonerror 
If Wait_rc=0 then do 

hpcs_onerror=onerror 

onerror=False 

Wait #10 ScrhasCABEND=SOOO U2018') 
Wait_rc=rc 
onerror=hpcs_onerror 
lfWait_rc=1 then do 

Call Hpcsjogit 'Start irim issued with active IRLM"s' 

goto HpcsJest_case_aborted 
end 

Call Hpcsjogit 'Irim failed to initialize, reason unknown' 
goto HpcsJest_case_aborted 
end 

/* 

Goto Process_an_lrlm_Exit 
end 

If lrlm_process='Cancel' | lrlm_process='Stop' then do 
Call Hpcs_clear_all 
Send 'D A.L'ljENTER 
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Wait#10ScrhasCIEE114r) 
hpcs_onerror=onerror 
onerror=False 

/* look for RLM after IEE1 141 message */ 
I*********************************************************************** 

Wait#0 ScrhasCRLM' (HITROW +1:1) (MAXROW : MAXCOL)) 

Wait rc=rc 
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